### This script: Summary statistics, individual-level data using  SOEP v.35 data (1984-2018)
## Information on the data set: https://www.diw.de/en/diw_01.c.742256.en/edition/soep-core_v35__data_1984-2018.html
## Information on data access: https://www.diw.de/en/diw_01.c.601584.en/data_access.html
## Note that access to regional SOEP data is possible onsite at the DIW Berlin:
## Information on regional data: https://www.diw.de/en/diw_01.c.683748.en/regional_data.html#c_diw_01.c.683753.de

# Get and filter results
library(tidyverse)
library(xtable)
##
rm(list = ls())

dat <- read_rds("data/SOEP_descript.rds")

print(dat)
xtable(dat,
       digits = NULL,
       label = NULL, 
       caption = NULL
  )